RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
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RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 
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RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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MODULE UNPUS ( 
%BL1SS32C 


IDENT = 'V04-000' 


vv 


Ss SSSSSSSSSSSSSSSSSSSSssssssssssssssssssss 


ADDRESSING _MODE (EXTERNAL=LONG_ RELATIVE ,NONEXTERNAL=LONG_RELATIVE) 


| 
| 
) | 
BEGIN 
' 
eRe REET EAE AREER 
| 
j 
| 
| 
| 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
!® ALL RIGHTS RESERVED. 


!* THIS te hetin i. FURNISHED nr A LICENSE ey MAY BE USED AND corree 
!* ONLY A NCE THE TERMS OF LICE TH 


® 
® 
7 
7 
® 
a 
® 
* 
! ® 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. : 
® 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* 
& 
® 
® 
® 
® 
® 
* 


't AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!® CORPORATION. 


ie DIGITAL ASSUMES NO RESPONSIB 


IBILIT 
!t SOFTWARE ON EQUIPMENT WHICH IS N 


Y FOR THE USE OR RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 

PITTITITILILI LL LLL LLL LLL LLL LLL TLL LLL LLL iti Titi 
! 

i¢¢ 

FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


i ABSTRACT: Takes the contents of MRA as described by TSF and translates 
i nto an equivalent .INDEX or .SEND TOC command. 


! 

! 

i 

ENVIRONMENT: Transportable 

AUTHOR: R.W.Friday CREATION DATE: February, 1979 
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Revision History 


; 44 3 1 XSBITTL ‘Revision History’ 

: 45 44 1! 

: ? rf : MODIFIED BY: 

: 48 hi 1 006 KFA00006 Ken Alden 5-Apr-1983 

; 49 Be8 <a Added support for SEND CONTENTS. 

et $89 1 | 

; § 8 ii Added support for non-STREAM putput (for LNO1, VT100) == 
; O26 1} call to macro OP_DEV_WRITE_OUTPUt_Line instead of to 

3 : ; ? } clh (clh_write output). 

: 6 ba 1 i 004 KAD00004 Keith Dawson 07-Mar-1983 

. a B28 1! Global edit of all modules. Updated module names, idents, 
3 28 Bpee : ; copyright dates. Changed require files to BLISS library. 
: 60 0059 1 i-- 


005 KAD00005 Keith Dawson 22-Mar-1983 
| 
| 


cc 
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Module Level Declarations 


a Be ed ed ed od dd dd dd ed 


RSBTTL *Module Level Declarations’ 
TABLE OF CONTENTS: 


' 

i INCLUDE FILES: 
LIBRARY 'NXPORT:XPORT"; 
REQUIRE 'REQ:RNODEF'; 
XIF DSRPLUS XTHEN 
LIBRARY ‘REQ:DPLLIB":; 
LIBRARY ‘REQ:DSRLIB'; 
iF 

' 

' 

4 


EQUATED SYMBOLS: 


EXTERNAL LITERAL 
RINTES : UNSIGNED (8); 


OWN STORAGE: 


EXTERNAL REFERENCES: 
EXTERNAL 
FLGT : 


FLAG_TABLE 

FRA : FIXED-STRING 

GCA : GCA_DEFINITION, 
MRA : REF FIXED STRING, 
TSF : TSF_DEFINITION; 


EXTERNAL ROUTINE 
CLH; 


! XPORT Library 
! RUNOFF variant definitions 


! DSRPLUS BLISS Library 
! DSR BLISS Library 


VAX=11 Bliss-32 


0-742 Pa 
DISKSVMSMASTER: CRUNOFF .SRCJUNPUS.BLI;1 


3 

1b-se -1984 56:20 VAX-11 Bliss-32 V4.0-742 P 4 

Module Level Declarations 1 30071382 94:38:82 DISKSVMSMASTER: CRUNOFF . SRCJUNPUS.BLI:1>~ (4). 
GLOBAL ROUTINE UNPUS (TOC) : NOVALUE = ! 


le4 
FUNCTIONAL DESCRIPTION: 


UNPUS untranslates the results of a .INDEX command cr 
INDEX flag, and puts the result into the output file. 


' 

' 

‘ 

FORMAL PARAMETERS: 

: If TOC is true, what is to be regurgitated is a .SEND TOC 
: or a .SEND CON( tents) cqnnene. depending on the TSF_MAJOR. 
Otherwise, its an indexing command. 

IMPLICIT INPUTS: None 

IMPLICIT OUTPUTS: None 

1 
! 
' 
' 
: 
' 


i ROUTINE VALUE: 
i COMPLETION CODES: None 


i SIDE EFFECTS: None 


BEGIN 

LOCAL 
mark, 
ptr; 


fs_init (fra); 'Initialize FRA. 


MEW $$ O ODNAUESWN —"OOONOUSWwH—OO0MW 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
| ptr = .fs_start(mra); 
'Generate either .SEND TOC, or .INDEX / .ENTRY 
‘or .XPLUS / .YPLUS. 
If . toc 
BEGIN 
ten t®tmeler EQL maj_send 
mark = CHSPTR ( UPLIT(".SEND TOC ')) 
ZI1F BSAPL US XTHEN 
mark = CHSPTR ( UPLIT(".SEND CONT')) 


ece 
COOCCOCCOCCOSDOSCOCOCOOOOOOODOSOOOOCOODOOOO OOOO OOOOOOOOOCOO OOO OOOD0 


PIPPPOPIAIPDPGPPYDIPYNINPYAIMNIPINIPIPIPUPIPY PIPPIN Po POfy 
oo 


DNS ITU BS BB BB BEE AAI I 
MEUN OC OONOAU EWN 0 OD NOU EWN 9 ODNAU EWN O ODN NEW OO ONOUS 


TFI : 
END 
ELSE 
i gtsf_tirstxtn NEQ 0 


H 
DSRPLUS ZTHEN 
IF .tsf_xyplus 
TME 


tani = CHSPTR ( UPLIT('.XPLUS *)) 


ccccc 
ns 


ELS 
tFI 


ee Pe Pe Te Te Te TE TEE TE TE TE TET Te eee ee eee eee eee ee Tere ree re rere rere rere rere rere re Tere rate eT 
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mark = CHSPTR ( UPLIT(". INDEX “> 
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voe~800 Module Level Declarations 1a-Sep- 38 93:38:82 DISKSVMSMASTER: CRUNOFF .SRCJUNPUS.BLI:1>— (4) 
: 188 33 éLse ; 
; 166 U a %IF DSRPLUS XTHEN : 
2 eet: Heit™t=s70t0 | 
: 169 U %6 mark = CHSPTR ( UPLIT('.YPLUS —‘')) : 
: ant ” 0598 5 a1 coe 
; 1%¢ 99 mark = CHSPTR ( UPLIT('.ENTRY  '')); ; 
: 17% 0301 INCR i FROM 1 TO 10 DO ; 
; if 8 oe FS_WCHAR (fra, CHSRCHAR_A (mark) ); : 
; 178 8 Bz FS_WCHAR (fra, %C° ‘'); : 
: 178 0305 'Scan the text, untranslating escape codes, etc. back to RUNOFF flags. : 
: 179 0306 INCR i FROM 1 fO--tsfint.hl-bo - 
; 180 0307 BEGIN s 
: «6181 Bene OCAL 3 
.| ei oe : 
: 184 O31 khar = CHSRCHAR_A (ptr); 2 
; 136 0318 al EQL rintes ; 
; + osi2 3 unter one late special function ; 
: 190 S319 4 LOCAL : 
; «6191 0318 4 function_code, : 
3 136 Bae . operand; : 
: 19% 035) 4 function_code = CHSRCHAR_A (ptr); ; 
: «195 Oa56 4 operand = CHSRCHAR_A (ptr); : 
: 138 8352 ? is .{ + 2: ; 
: 198 §358 % SELECTONE .function_code OF : 
: 200 $359 FCB") ; 
> 201 0328 4 'Rolded character. F 
; $o8 B36) ? fs_wchar (fra, .flgt Cbld_flag, flag_character]); : 
; $0 0331 4 cxc'u') : ‘ 
3 soe 0 § 4 ‘Underlined character 
: 5) 0 Z ? fs_wehar (fra, .flgt fund_flag. flag_character]); 
; 08 6 5 4 Cxc'o") : 
; 209 0336 5 BEGIN 
; 210 8 , 2 ‘An _overstruck character. ; 
: 11 ; 8 5 'NOTE: Order is the reverse of what user specified. 
: \¢ 9 : fs_wehar (fra, .operand); 
ae 0 fs_wehar (fra, .flgt Covr_flag, flag_character]); 
; 1 1 ? END; 
: 16 4 4 Cxc'y') : | 
: et 44 & ‘A word mark. for indexing commands, this 
; 218 i ‘starts a new sub-indexing level. 
3 i 48 ? fs_wehar (fra, .flgt Csbx_flag, flag_character)); | 


Kk 3 


VoeL800 Module Level Declarations 12786871 382 9}: 38; $f Mt Baas FERS CRUNOF TS “ye 


X-11 6 
SKSVMSMASTER: CRUNOFF.SRCJUNPUS.BLI;1 (4) 


3 1 034 4 ZIF DSRPLUS ZTHEN 3 
3 ¢ U 0349 4 Cxc'P') : 3 
; U 0 4 tise ermuted word. : 
: ¢ U 1 ? el fs_wehar (fra, .flgt Cnpx_flag, flag_character]); : 
: § : 4 COTHERWISE) : : 
: 4 & Unknown/ unsupported, Sone Ses function ; 
: 3 2? ? ts uwehar (fra, %c' . 
: 230 2 4 TES; ; 
3 1 0358 4 END 3 
3 ¢ 8 59 ; ELSE 3 
3 60 'Some normal character 3 
$ 4 0361 4 BEGIN 
3 5 0 6 4 ‘Normal characters go out as themselves. Control characters 
$ ] 8 635 4 are translated to something else. 
; ; 64 5 IF (.khar GEQ 
; § 8 8 65 5 AND (.khar LEQ %0'176') 
; 239 66 4 THEN 
: 240 0367 4 ‘Output a nereal character 
: Ste toe ? fs_wehar (fra, .khar) 
; rk 0370 4 ‘Translate and outpy 4 a control character. 
: sie b3e4 : dead 7 + (Octal 177) and NUL (Octal 0) have the same result. 
: 266 o358 5 fs_wohar (fra, %c'*'); 
3: 247 0374 5 fs” wehar (fra, %c'a'+.khar); 
; 248 0375 4 END; 
: 249 B3f8 3 END; 
Goebel (feet 
5 $26 rs t44 § op_dev_write_output_Line; ‘Write result to document. 
: 254 0381 1 END; 'End of UNPUS 
-TITLE UNPUS 
-IDENT \V04-000\ 
-PSECT S$PLITS,NOWRT,NOEXE,2 
00 00 20 43 4F 54 20 44 4E 45 53 E 60000 P.AAA: .ASCII \.SEND TOC \<0><0> : 
00 00 $8 4 $0 20 58 45 44 4E 49 2€E oes P.AAB: .ASCII \.INDEX \<0><0> 3 
00 00 20 20 20 20 59 52 54 4E 45 2E 00018 P.AAC: .ASCII \.ENTRY \<0><0> 3 
-EXTRN RINTES, FLGT, FRA 
SEXTRN GCA, MRA, TSF, CLH 
-PSECT S$CODE$S,NOWRT,2 
OOFC 000 -ENTRY UNPUS, Save R2,R3,R4,R5,R6,R7 3; 0234 
7 608 000° EF 9€ 0000 MOVAB P.AAA, R : 
g 09 0 G EF 9€ MOVAB FLGT #104 R6 ; 
55 000 G EF 9 19 MOVAB FRA+4, R5 : 
A p 1 CLRL = FRA sf > 0264 
FC AS C A f 1A MOVAB FRA+1 FRA 3 
65 FC OAS OD 1F MOVL FRA, FRA+4 : 


$* 
ez 


3 
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4 G FF D 3 MOVL  @MRA, PTR ; : 
5 SSSSBBRE EF BE G888R Sak BEPAb Ri) 
68 4 ac E 1 BLBC =-:«*TOC,,_ 1 : 20 : 
8 AO 01 5 CMPL (RO), #3 + 027 : 
14 12 9 BNE : : 
51 67 9 B MOV P.AAA, MARK + 0275 ; 
BB BRB 38 + 0270 ; 
38 «=6A0 OD 40 i$: TSTL 6(RO) + 0282 ; 
51 oc 3 $e bene Sevhe SAAB, MARK ? 0290 
04 f 049 BRB | RN : ; 
51 18 A? 9 48 3: MOVAB P.AAC, MARK : 0299 F 
0 01 4F 5$: MOVL #} $ 01 3 
00 65 81 0052 4$: VB (MARK)+, @FRA+4 + 0302 ; 
65 D6 Oe INCL FRA+4 ; 3 
08 A5 D6 0005 INCL FRA+12 : ; 
F3 50 OA F3 00058 AOBLEQ a0, 4$ + 0301 : 
00 «BS 20 9 90055 OVB #32. aFRA+4 : 0303 : 
65 D6 00063 INCL  FRA+4 : ; 
08 AS D6 00065 INCL FRA#12 : : 
52 ps 00068 CLRL + 0306 F 
008c 31 OO06A BRW 13$ : : 
51 84 9a 0006D S$: MOVZBL (PTR)+, KHAR + 0311 ; 
000000006 &F 51 D1 00070 CMPL _KHAR, #RINTES > 0313 ; 
57 12 00077 BNEQ 10$ : F 
50 84 9A 00079 MOVZBL (PTR)+, FUNCTION CODE + 0321 : 
53 84 9A 0007C MOVZBL (PTR)+, OPERAND 3 8358 3 
52 02 CO 0007F ADDL2. #2, 1 : 032 ; 
00000042 = &F 50 D1 00082 CMPL FUNCTION_CODE, #66 : 0327 : 
06 12 00089 BNEG 6$ : : 
00 B5 66 90 00088 MOVB FLGT#+104, aFRA+4 + 0329 ; 
63 11 0008 BRB 12$ : ; 
00000055 &F 50 D1 00091 6$: CMPL § FUNCTION_CODE, #85 > 0331 ; 
07 12 00098 BNEQ 7$ ; F 
00 «BS FC As 90 0009A MOVB FLGT+100, aFRA+4 + 0333 ; 
53 11 0009F BRB 12$ : ; 
0000004F BF 50 b1 O00A1 7$: CMPL § FUNCTION_CODE, #79 > 0335 ; 
10 if OO0AB BNEQ ; 3 
00 B5 53 9 OOAA MOVB OPERAND, @FRA+4 ; 0339 3 
65 06 QOOA INCL FRA+4 : 3 
08 AS D6 008 INCL FRA+12 : : 
00 85 10 a6 0 008 move FLGT+120, aFRA+4 : 0340 3 
0000004A BF 30 D| OOBA 8$: cMPL FUNCTION CODE, #74 > 0343 ; 
00 «BS 146 Ab $5 0 C3 MOVB FLGT#124, aFRA+4 > 0346 
eA 11 0 ¢ BRB 1 $ ; 
00 B5 F 90 OOOCA 98: MOVB #63, @FRA+4 : 0355 
24 11 000¢ BRB 123 : 
20 1 D4 000 10$:  CMPL = KHAR, #32 > 0364 
OF 9 0000 BLSS 11$ : 
0000007E 8F 1 D1 0000 CMPL § KHAR, #126 > 0365 
06 14 0000C BGTR 11$ : 
09 BS 1 90 0000 MOVB _—KHAR, @FRA+4 > 0368 
10 11 O00E BRB les ; 
00 «BS SE 8F 90 OO0E4 11$:  MOVB #94, aFRA+4 > 0373 
65 D6 000E9 INCL  FRA+4 : 
| 


M 53 
UNPU 16-Sep-1984 0 VAX=11 $-32 V4.0-74 XTA 
VOs-000 Module Level Declaratioris 128 Sep ats 7 tt 38; ‘ DISK$V nen TER: CRUNOFF . Sec JUNPUS. BLI; ye (aS v04 
08 AS EB INCL +12 : 
00 85 51 40 BF Re EE ADDB3 Wee KHAR, @FRA+4 : 0374 
63 F4 12$: INCL Avs : 
FF6A 52 1 000000986 Fe 5 8 13$ Ata 1, 5$ ; 03 é 
02 000000006 EF 8, 4 FD 1 CMPZV ie “echs2os, #2 + 037 
4 14 0010¢ BGTR a : 
$ DD 001 PUSHL Hs : 
11 001 RB 15$ ; 
OB DD oi 14$: PUSHL : 
000000006 EF 01 FB 00114 15$: CALLS #1, CLH : 
04 00118 RET : 0381 


; Routine Size: 284 bytes, Routine Base: $CODE$ + 0000 


; $2) O38¢ 1 

; 256 03835 1 END 'End of module 

s est 0384 0 ELUDOM 

: PSECT SUMMARY 

: Name Bytes Attributes 

: SPLITS 36 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL Settee Sig baat ts 
; SCODES 284 NOVEC.NOWRT, RD » EXE,NOSHR, LCL, REL, CON,NOPIC,,ALIGN(2) 


Library Statistics 


eee eae) ee ke Symbols -------- Pages Processing 

3 File Total Loaded Percent Mapped Time 

: $S238DUACE: :CSYSLIBIJXPORT.L32;1 590 0 0 252 00:00.1 

; 55$DUA28 : CRUNOFF . SRCJDSRLIB.L32;1 1248 28 2 86 00:00.3 

3 COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:UNPUS/OBJ=0BJ$:UNPUS ASRC$:UNPUS/UPDATE=(ENH$:UNPUS) 
3; Size: 284 code : 36 data bytes 

3; Run Time 0:08 

; Elapsed beast F544 

3; Lines/CPU Min: 844° 


SS 
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3; Lexemes/CPU-Min: 21525 
: penery Used: 105 pages 
3; Compilation Complete 
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T CORPORATION 
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